home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / pc / pb / profile.dir / 01276_Script_impressions score script < prev    next >
Text File  |  1997-07-29  |  2KB  |  51 lines
  1. global dopm,current_pm,the_rolls,prof_rolls
  2. on exitFrame
  3.   go the frame
  4.   if the type of sprite 26 = 16 then
  5.     repeat while the movietime of sprite 26 > 50 and the movietime of sprite 26 < 400
  6.       if the mousedown then exit repeat
  7.       case true of
  8.         (rollover(19)) :
  9.           set the cursor of sprite 19 to [member 74 of castlib "basecast.cst", member 75 of castlib "basecast.cst"]
  10.         (rollover(21)) :
  11.           set the cursor of sprite 21 to [member 74 of castlib "basecast.cst", member 75 of castlib "basecast.cst"]
  12.         (rollover(22)) :
  13.           set the cursor of sprite 22 to [member 74 of castlib "basecast.cst", member 75 of castlib "basecast.cst"]
  14.         (rollover(24)) :
  15.           set the cursor of sprite 24 to [member 74 of castlib "basecast.cst", member 75 of castlib "basecast.cst"]
  16.         (rollover(25)) :
  17.           set the cursor of sprite 25 to [member 74 of castlib "basecast.cst", member 75 of castlib "basecast.cst"]
  18.         (rollover(27)) :
  19.           set the cursor of sprite 27 to [member 74 of castlib "basecast.cst", member 75 of castlib "basecast.cst"]
  20.         (rollover(28)) :
  21.           set the cursor of sprite 28 to [member 74 of castlib "basecast.cst", member 75 of castlib "basecast.cst"]
  22.       end case
  23.       updatestage
  24.     end repeat
  25.     if the movietime of sprite 26 = the duration of the member of sprite 26 then  
  26.       set the movierate of sprite 26 to 0
  27.       put current_pm&",im" into x
  28.       puppetsprite 24,false
  29.       puppetsprite 19,false
  30.       puppettransition 51,02,16
  31.       go to marker(string(x)) + 3
  32.       set omv = the mouseh
  33.       repeat while the mouseh = omv
  34.       end repeat
  35.     end if
  36.   end if
  37. end
  38. on idle
  39.   if not(voidp(dopm)) then
  40.     if dopm then pass
  41.   end if
  42. end
  43.  
  44. on mousedown
  45.   
  46.   set the visible of sprite 24 to false
  47.   puppetsprite 24,false
  48.   put current_pm&",im" into x
  49.   go to marker(string(x)) + 3
  50. end
  51.